$file2 = $ARGV[0];
open(BUFF2,$file2);
open(WRBUFF,">probeset_probes_$file2");

while($line = <BUFF2>)
{
	if($line =~ m/Cell(\d+)/ && $line =~ m/control/)
	{
		@line = split("\t",$line);
		@liney = split("\=",$line[0]);
		
		print WRBUFF $line[4]."\t".$liney[1]."\t".$line[1]."\n";
	}
}

